home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / gfx / 3d / IIB10.lha / IIB / Threads / Additional / IARexx.lha / sharp2quick.irx < prev    next >
Encoding:
Text File  |  1997-05-19  |  1.3 KB  |  60 lines
  1. /*
  2. **  $VER: Sharp2Quick.irx  0.002 (04 May 1997)  **
  3. **
  4. **      (c) 1997 Ernesto Poveda Cortes
  5. **
  6. **  PROGRAMNAME:
  7. **      Sharp2Quick.irx
  8. **
  9. **  FUNCTION:
  10. **      Make Quick Edges from Sharp ones
  11. **
  12. **  $HISTORY:
  13. **
  14. **  04 May 1997 : 000.002 :  Working subrelease
  15. */
  16.  
  17.  
  18. OPTIONS RESULTS                             /* enable return codes     */
  19. ADDRESS 'Imagine.1'
  20.  
  21. OPTIONS FAILAT 6                            /* ignore warnings         */
  22. SIGNAL ON SYNTAX                            /* ensure clean exit       */
  23.  
  24. NL = '0A'x
  25. /* ------------------------------------------------------------------- */
  26.  
  27. IMAGINETOFRONT
  28.  
  29. IF ~EXISTS('LIBS:rexxreqtools.library') THEN DO
  30.    NOTIFY 'Please install the rexxreqtools.library into your LIBS: directory'
  31.    NOTIFY 'It is available from /pub/aminet/util/rexx/RexxReqTools.lha'
  32.    exit
  33. END
  34. CALL ADDLIB('rexxreqtools.library',0,-30,0)
  35.  
  36. call rtezrequest("MakeQuick.irx -  1997 Ernie",'_Good|_Exit','U have launched...','rt_reqpos = reqpos_centerscr')
  37. if ~rtresult then call BYE
  38.  
  39.  
  40. EDGEMODE
  41. PICK SHARP
  42. MAKEQUICKEDGES
  43. OBJECTMODE
  44. BEEP
  45.  
  46. /* ------------------------------------------------------------------- */
  47.  
  48. BYE:
  49. ActivateImagine
  50. DISPLAYREXXPTR OFF
  51. EXIT
  52.  
  53. SYNTAX:
  54.  
  55. NOTIFY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  56. ActivateImagine
  57. DISPLAYREXXPTR OFF
  58. EXIT
  59.  
  60.